home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / hydra_fcv0_38b.lha / hydra-fc / Hydra-FC-Install < prev    next >
Text File  |  1995-09-11  |  18KB  |  375 lines
  1. /* Hydra-FC Install V2.0 (C) by Mxlprx / Deep Forest BBS */
  2. Ver="v0.38▀";NL = '0a'x;fonttag=""
  3. call addlib("rexxreqtools.library", 0, -30, 0)
  4. If ~Exists("libs:rexxreqtools.library") then do
  5.    If ~Exists("RAM:Libs/rexxreqtools.library") then do 
  6.      call rtezrequest("Rexxreqtools.library wurde nicht gefunden !","Alles Klar!")
  7.      EXIT
  8.    end
  9. end
  10.  
  11. KFFlag=0
  12.  
  13. dcheck=0
  14. dtable=""
  15. pip=0
  16. ExtraULDL=0
  17. b1=""
  18. b2=""
  19. sbl=""
  20. sopvtr=0
  21.  
  22. call CreateMB_Assign
  23. address command "assign mb: "fcpfad
  24.  
  25. Center="rtgs_flags=gsreqf_centertext"
  26. Tags="rtez_flags=ezreqf_noreturnkey"
  27.  
  28. dcheckold=0
  29. dtableold=""
  30. pipold=0
  31. ExtraULDLold=0
  32. b1old=""
  33. b2old=""
  34. sblold=""
  35. sopvtrold=""
  36.  
  37. If Exists("S:Hydra-FC.cfg") then do
  38.   AnsDUMMY=rtezrequest(NL||center("Es besteht noch eine alte Konfiguration,",45)NL||NL||center("die nun eingelesen und angezeigt wird!",45)||NL,"Mach mal!")
  39.     open(Config,"S:Hydra-FC.cfg","R")
  40.     dcheckold=readln(Config)
  41.     dtableold=readln(Config)
  42.     pipold=readln(Config)
  43.     ExtraULDLold=readln(Config)
  44.     b1old=readln(Config)
  45.     b2old=readln(Config)
  46.     sblold=readln(Config)
  47.     sopvtrold=readln(Config)    /* Neuer Eintrag */
  48. close(config)
  49.  
  50. dcheck=dcheckold
  51. dtable=dtableold
  52. pip=pipold
  53. ExtraULDL=ExtraULDLold
  54. b1=b1old
  55. b2=b2old
  56. sbl=sblold
  57. sopvtr=sopvtrold    /* Neuer Eintrag */
  58.  
  59. if dcheck=1 then d="Ja"
  60.         else d="Nein"
  61.  
  62. if pip=1 then p="Ja"
  63.      else p="Nein"
  64.  
  65. if ExtraULDL=1 then exULDL="Ja"
  66.            else exULDL="Nein"
  67.  
  68. if sopvtr=1 then sopvt="Ja"
  69.         else sopvt="Nein"
  70.  
  71. really=rtezrequest(NL||center("Die bereits bestehende Konfiguration fⁿr Hydra-FC ist:",55)||NL||NL"               Dupecheck: "d||NL"              Dupe-Table: "dtable||NL"FC-Protokoll beschreiben: "p||NL" Extra Up/Down-Protokoll: "exULDL||NL"          Hydra-Brett #1: "b1||NL"          Hydra-Brett #2: "b2||NL"    Name der SentBy-Line: "sbl||NL"Sysop-Mails an Vertreter: "||sopvt||NL||NL||center("M÷chten Sie diese Konfiguration Σndern",55)||NL||center("ODER Hydra-FC eventuell neu installieren?",55)||NL,"Ja|Nein")    /* Neuer Eintrag */
  72. if really=0 then exit
  73.  
  74. end
  75.  
  76. Anfang:
  77. Ans1=rtezrequest(NL||center("Hydra-FC Installer & Config Editor",50)||NL||center("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~",50)||NL||center("Die aktuelle Version der Hydracom-Einbindung",50)||NL||center("fⁿr FastCall Mailboxsysteme",50)||NL||center("ist "Ver"!!",50)||NL||NL||center("Updates gibt es in der",50)||NL||center("DeEp FoReST - 06203 68967",50)||NL||CENTER("oder ⁿber Netze (z.B. FC-Netz / Mailbox-Tools)",50)||NL,"Alles klor!",fonttag)
  78.  
  79. Konfig:
  80. Ans2=rtezrequest(NL"Welchen Schritt m÷chten Sie gerne durchfⁿhren ?┐?"||NL||NL"INSTALL  = Hydra-FC installieren"||NL"CONFIG   = Hydra-Konfiguration "||NL"SAVE CFG = Konfiguration abspeichern"||NL,"INSTALL|CONFIG|SAVE CFG| ENDE ","Einstellungen",Tags)
  81.  
  82. IF Ans2=1 then signal Install
  83. IF Ans2=2 then signal Konfiguration
  84. IF Ans2=3 then signal WriteConfig
  85.  
  86. EXIT
  87.  
  88. Install:
  89.  
  90. if exists("s:Hydra-FC.cfg") then do
  91.         weiter=rtezrequest(NL||center("Es besteht noch eine alte Konfiguration.",50)||NL||NL||center("M÷chten Sie diese vor der Installation l÷schen?",50)||NL,"Ja|Nein, nur neu installieren","",Tags)
  92.         if weiter=1 then address command "Delete s:Hydra-FC.cfg"
  93.     end
  94.  
  95. boardmade=rtezrequest(NL||center("Haben Sie bereits, wie im Guide beschrieben,",45)||NL||center("ein oder zwei temporΣre Hydra-Bretter",45)||NL||center("fⁿr die Transfers eingerichtet?",45)||NL||NL||"(2 Bretter sind fⁿr Multiport-Systeme gⁿnstig,"NL"falls das eine Brett gerade auf einem"NL"anderen Port benutzt wird!)"||NL,"Ja|Nein, noch nicht","Installation",Tags)
  96. if boardmade=0 then do
  97.     asktoinstallboards=rtezrequest(NL||center("Bitte installieren sie, bevor sie fortfahren,",50)||NL||center("ein oder zwei temporΣre Bretter fⁿr den",50)||NL||center("Hydra-Transfer.",50)||NL||NL||center("Bitte beachten: Diese Bretter M▄SSEN",50)||NL||center("den gleichen DOS-Pfad haben!!",50)||NL,"Okay, mach ich|Jo, is gebonkt!","Vor-Installations-Hinweise",Tags)
  98.     exit
  99.     end
  100.  
  101. inst=rtezrequest(NL"Es werden nun die ben÷tigten Files kopiert!"NL,"Alles klar!|Ne, lieber doch net..","Beginn der Installation",Tags)
  102. if inst=0 then signal konfig
  103.  
  104. mbassign=0
  105.  
  106. address command 'copy c/FDiz-HydraFC c:'
  107. address command 'copy c/move c:'
  108. address command 'copy c/two c:'
  109. address command 'copy s/FDizChck.cfg s:'
  110. address command 'copy s/FdizLingualFile.ger s:'
  111. address command 'copy s/FDizLHAStripNames s:'
  112. address command 'copy rexx/Hydra-FC.rexx rexx:'
  113.  
  114. mbasgn=rtezrequest(NL||center("Haben Sie bereits einen Assign mb:,",40)||NL||center("der auf das Fastcall-Verzeichnis zeigt",40)||NL||center("(worin das Hauptprogramm liegt) ?",40)||NL,"Ja|Nein","Assign mb: in User-Startup bereits vorhanden?")
  115. if mbasgn=0 then call CreateMB_Assign
  116.  
  117. hbasgn=rtezrequest(NL||center("Haben Sie bereits einen Assign hbin:, der auf",50)||NL||center("den DOS-Pfad der Hydra-Bretter zeigt?",50)||NL,"Ja|Nein","Assign mb: bereits vorhanden?")
  118. if hbasgn=1 then signal noasgn
  119.  
  120. hbn=rtgetstring("",NL"Geben Sie nun den DOS-Pfad des/der Hydra-Bretter an:"NL||NL"Randbemerkung: Der DOS-Pfad BEIDER Bretter MU▀ gleich sein!!!"NL"               Sollte dies nicht der Fall sein, dann brechen"NL"               Sie ab und stellen Sie den gleichen Pfad ein."NL,"Eingabe des DOS-Pfades","OK|Abbruch")
  121. if strip(hbn)="" then exit
  122.  
  123. noasgn:
  124.  
  125. if mbasgn=0|hbasgn=0 then do
  126.     if exists("S:User-Startup") then open(usstart,"S:User-Startup","A")
  127.                 else open(usstart,"S:User-Startup","W")
  128.         writeln(usstart,"; BEGIN Hydra-FC")
  129.         if mbasgn=0 then writeln(usstart,"ASSIGN mb: "fcpfad)
  130.         if hbasgn=0 then writeln(usstart,"ASSIGN hbin: "hbn)
  131.         writeln(usstart,"; END Hydra-FC")
  132.     close(usstart)
  133. end 
  134.  
  135. spcommand=0
  136.  
  137. spcmd=rtezrequest(NL||center("Es besteht die M÷glichkeit, den SpecialCommand",50)||NL||center("'.hydra' zum Start des Scripts automatisch",50)||NL||center("in alle vorhandenen Ports einbauen zu lassen.",50)||NL||NL||center("Falls dieser Specialcommand bereits existieren",50)||NL||center("sollte, wird er nicht nochmals eingefⁿgt!",50)||NL||NL||center("M÷chten Sie den Specialcommand automatisch",50)||NL||center("in alle Ports eintragen lassen?",50)||NL,"Ja|Nein","Specialcommand installieren")
  138. if spcmd=0 then signal Cont
  139.  
  140. spcommand=1
  141.  
  142. level=rtezrequest(NL||center("Es wird nun automatisch der SpecialCommand installiert!",60)||NL||NL||center("Ab welchem Userlevel m÷chten Sie Hydracom",60)||NL||center("ihren Usern zugΣnglich machen?",60)||NL,"1|2|3|4|5|6|7|8|9","Userlevel fⁿr Hydra-FC")
  143.  
  144. p=0
  145. i=0
  146. do until i=10
  147.     if i=0 then i=""
  148.     if exists("mb:boxdaten/specialcommands"i) then call AddSpecialCommand
  149.     if i="" then i=0
  150.     i=i+1
  151. end
  152.  
  153. dummy=rtezrequest(NL"Es wurde in "p" Ports der neue SpecialCommand eingetragen"NL,"Okay!")
  154.  
  155. Cont:
  156.  
  157. if spcommand=1 then dummy=rtezrequest(NL||center("Hydra-FC wurde erfolgreich installiert!",42)||NL,"Okay!","Alles hat geklappt!")
  158.            else dummy=rtezrequest(NL||center("Hydra-FC wurde erfolgreich installiert!",42)||NL||NL||center("Sie mⁿssen jetzt nur noch fⁿr jeden Port",42)||NL||center("einen Special-Command '.hydra' einrichten,",42)||NL||center("da Sie dies nicht automatisch",42)||NL||center("erledigt haben lassen.",42)NL||center("(Im Guide erlΣutert)",42),"Okay, das werde ich dann gleich machen!","Alles hat geklappt!")
  159.  
  160. cfg=rtezrequest(NL||center("M÷chten Sie auch gleich die",40)||NL||center("Hydra-FC-Konfiguration editieren?",40)||NL||NL"(empfehlenswert!)","Ja, mache ich gleich|Nein, erst spΣter","Konfiguration sofort")
  161. if cfg=1 then signal Konfiguration
  162. signal Konfig
  163.  
  164. CreateMB_Assign:
  165. open(fcp,"s:Hauptpfad","R")
  166.     fcpfad=readln(fcp)
  167. close(fcp)
  168. return
  169.  
  170. Konfiguration:
  171.  
  172. call cfg_dupecheck
  173. call cfg_extraULDL
  174. call cfg_HydraBretter
  175. call cfg_Vertretermails
  176.  
  177. WriteConfig:
  178.  
  179. if b1="" then do
  180.     dummy=rtezrequest(NL||"Sie haben noch keine Konfiguration eingegeben!!"NL,"Upps...")
  181.     signal Anfang
  182. end
  183.  
  184. If dcheck=1 then d="Ja"
  185.         else d="Nein"
  186.  
  187. if pip=1 then p="An"
  188.      else p="Aus"
  189.  
  190. if ExtraULDL=1 then e="An"
  191.            else e="Aus"
  192.  
  193. if sopvtr=1 then sopvt="Ja"
  194.         else sopvt="Nein"
  195.  
  196.  
  197. really=rtezrequest(NL||center("Die jetzt eingestellte Konfiguration fⁿr Hydra-FC ist:",55)||NL||NL" Dupecheck angeschaltet: "d||NL"Filename der Dupe-Table: "dtable||NL||"Eintrag in FC-Protokoll: "p||NL||"Extra-Protokoll fⁿhren : "e||NL"         Hydra-Brett #1: "b1||NL"         Hydra-Brett #2: "b2||NL||"Filename der SentByLine: "sbl||NL||"      Mail an Vertreter: "sopvt||NL||NL||center("M÷chten Sie noch mal etwas verΣndern?",55)||NL,"Ja|Nein|Zurⁿck","Konfiguration")
  198. if really=1 then call changeconfig
  199. if really=0 then signal Anfang
  200.  
  201. really2=rtezrequest(NL||center("M÷chten Sie die nun eingestellte",35)||NL||center("Konfiguration abspeichern?",35)||NL,"Ja|Nein|Abbruch","Konfiguration abspeichern")
  202. if really2=0 then signal Anfang
  203. if really2=2 then signal WriteConfig
  204.  
  205. open(confg,"s:Hydra-FC.cfg","W")
  206.     writeln(confg,dcheck)
  207.     writeln(confg,dtable)
  208.     writeln(confg,pip)
  209.     writeln(confg,ExtraULDL)
  210.     writeln(confg,b1)
  211.     writeln(confg,b2)
  212.     writeln(confg,sbl)
  213.     writeln(confg,sopvtr)
  214. close(confg)
  215.  
  216. dummy=rtezrequest(NL||center("Hydra-FC wurde erfolgreich konfiguriert!",50)||NL||NL||center("Viel Spa▀ mit dem neuen Tool, das",50)||NL||center("zeigt, da▀ in FastCall doch noch was drinsteckt :)",50)||NL||NL||center("Und nicht vergessen: Schreib dem Progger wenigstens",50)||NL||center("eine nette Mail oder call doch mal in der",50)||NL||NL||center(".oOñ░~ Deep Forest ~░ñOo.",50)||NL||NL||center("(natⁿrlich auch fⁿr Bugreports :) )",50)||NL,"Sch÷n|Super!|Grandios!!|Unglaublich!!!|Genial!!!|8-)","Und schlie▀lich...",Tags)
  217. exit
  218.  
  219. changeconfig:
  220. what=rtezrequest(NL||center("Die jetzt eingestellte Konfiguration fⁿr Hydra-FC ist:",55)||NL||NL" Dupecheck angeschaltet: "d||NL"Filename der Dupe-Table: "dtable||NL||"Eintrag in FC-Protokoll: "p||NL||"Extra-Protokoll fⁿhren : "e||NL"         Hydra-Brett #1: "b1||NL"         Hydra-Brett #2: "b2||NL||"Filename der SentByLine: "sbl||NL||"      Mail an Vertreter: "sopvt||NL||NL||center("Was soll nochmals geΣndert werden?",55)||NL||NL||" [1] Dupecheck/Dupetable"||NL||" [2] Eintrag in FC-UpDownload-Protokoll"||NL||" [3] Name der Hydra-Bretter"||NL||" [4] Extra Hydra-ULDL-Protokoll"||NL||" [5] Name der SentByLine"||NL||" [6] Sysop-Mails auch an Vertreter"||NL,"1|2|3|4|5|6|Zurⁿck","Konfiguration nochmals Σndern")
  221. if what=1 then call cfg_dupecheck
  222. if what=2 then call cfg_pip
  223. if what=3 then call cfg_HydraBretter
  224. if what=4 then call cfg_extraULDL
  225. if what=5 then call SentByReq
  226. if what=6 then call cfg_Vertretermails
  227.  
  228. signal WriteConfig
  229.  
  230. cfg_dupecheck:
  231. dcheck=0
  232. dtable=""
  233. pip=0
  234.  
  235. dupe=rtezrequest(NL||center("Es besteht die M÷glichkeit, einen Dupe-Check",55)||NL||center("fⁿr Hydracom in Verbindung mit verschiedenen",55)||NL||center("Mailboxcheckersystemen fⁿr Fastcall zu realisieren.",55)||NL||NL||center("Soll der Dupecheck angeschaltet werden?",55)||NL,"Ja|Nein","Dupecheck")
  236. if dupe=1 then do
  237.     dcheck=1
  238.     mbchk=rtezrequest(center("Haben Sie einen der folgenen Mailboxchecker?",65)||NL||NL||" [1] MXM-Filechecker                [2] KF-Mailboxchecker"NL" [3] Doublecheck v. Martin Brⁿckner [4] File-Existenz-Archiv-Checker"NL,"1|2|3|4|Keinen von diesen","Mailboxchecker",Tags)
  239.     if mbchk=1 then signal MXM
  240.     if mbchk=2 then signal KF
  241.     if mbchk=3 then signal MBR
  242.     if mbchk=4 then signal FEA
  243.  
  244. FileReq:
  245.     freq=rtezrequest(NL||center("Es folgt nun ein File-Requester, in dem Sie",62)||NL||center("die sog. Dupe-Table ihres Mailboxcheckers",62)||NL||center("auswΣhlen mⁿssen, um den DupeCheck",62)||NL||center("in Funktion setzen zu k÷nnen!",62)||NL||NL||"Eine falsche Angabe kann zu Problemen bei Systemfiles fⁿhren!"NL,"Verstanden|Hilfe|Nix blick..")
  246.     if freq=0 then do
  247.         dummy=rtezrequest(NL"Wenn Unklarheiten bestehen, setzen Sie sich mit"NL"dem Autor dieses Programmes per email"NL"auseinander (Mxlprx@d-forest.domino.de)"NL"oder rufen in der Support-Mailbox 06203-68967 an!"NL,"Jojo..","",Tags)
  248.         exit
  249.         end
  250.     if freq=2 then do
  251.         dummy=rtezrequest(NL"Eine Dupe-Table ist ein Ascii-File, in dem "NL"die Namen bereits upgeloadeter Files"NL"abgelegt werden, womit ⁿberprⁿft werden kann,"NL"ob ein File schon mal frⁿher geuppt wurde."NL||NL"Falls Sie nicht wissen, wo diese"NL"Dupe-Table zu finden ist oder wie"NL"sie hei▀t, schauen Sie in der Anleitung"NL"Ihres Mailboxcheckers nach!"NL,"Jo, jetzt is alles klar!","",Tags)
  252.         signal FileReq
  253.         end
  254.     
  255.     file=rtfilerequest("s:")
  256.     dtable=file
  257.  
  258. call cfg_pip
  259.  
  260. SentByReq:
  261.     sbreq=rtgetstring("",NL||center("Viele Mailboxcheckersysteme erlauben es, eine",60)||NL||center("SentBy-Line an die Filebeschreibung",60)||NL||center("anzuhΣngen, die zeigt, von wem das File geuppt wurde.",60)||NL||center("Dieser String wird im Userverzeichnis abgelegt, wie z.B.",60)||NL||center("unter dem Filenamen SentByLine, SentByFlag o.Σ.",60)||NL||NL||center("Wie hei▀t die SentBy-Line nun bei Ihrem Mailboxchecker?",60)||NL||center("WICHTIG: Er darf KEINE Leerstellen haben!!",60)||NL,"Eingabe des Filenamens der SentBy-Line","OK|HILFE|Abbruch")
  262.     if sbreq=0 then do
  263.         exit
  264.         end
  265.     if sbreq=2 then do
  266.         dummy=rtezrequest(NL||center("Wenn Ihr Mailboxchecker keine SentBy-Line",65)NL||center("unterstⁿtzt, drⁿcken Sie einfach nur 'OK',",65)NL||center("ohne etwas einzugeben!",65)NL||NL||center("Wenn Sie nicht wissen, wie der Filename der SentByLine hei▀t,",65)NL||center("schauen Sie einfach den Inhalt eines beliebigen",65)NL||center("Userverzeichnisses an, in dem ein File",65)NL||center("wie z.B. SentByLine, SentByFlag o.Σ. vorhanden sein sollte.",65)NL||NL||center("Oder schauen Sie in der Anleitung des Checkers nach :)",65)NL,"Ok|Gut|Alles klar")
  267.         signal SentByReq
  268.         end
  269.     sbl=sbreq
  270.     return
  271. end
  272. return
  273.  
  274. MXM:
  275. dtable="s:MXM-Filecheck.lst"
  276. pip=1
  277. sbl="SentByFlag"
  278. return
  279.  
  280. KF:
  281. how=rtezrequest(NL||center("Beim KF-Mailboxchecker gibt es 2 M÷glichkeiten,",50)||NL||center("eine Dupe-Table zu benutzen.",50)||NL||NL||" [1] Dupe-Check per Fastcalls UpDownload-Protokoll"NL" [2] Dupe-Check mit eigener File-Liste"NL||NL||center("Welchen Modus haben Sie bei sich laufen?",50)||NL,"1|2|ZUR▄CK","KF-Mailboxchecker",Tags)
  282. if how=0 then signal Konfiguration
  283. if how=1 then do
  284.         dtable="mb:protokolle/UpDownloadprotokoll"
  285.         pip=0
  286.         KFFlag=1
  287.     end
  288.     else do
  289.         dtable="mb:KFTemp/KFProtokolle/KFBisherUpgeloadeteFiles"
  290.         pip=1
  291.         KFFlag=0
  292.     end
  293. sbl="SentByLine"
  294. return
  295.  
  296. MBR:
  297. dtable="s:double.dat"
  298. pip=1
  299. sbl=""
  300. return
  301.  
  302. FEA:
  303. dtable="mb:FEA-checker.filelist"
  304. pip=1
  305. sbl=""
  306. return
  307.  
  308. cfg_HydraBretter:
  309.  
  310. b1=""
  311. b2=""
  312.  
  313. hbrett=rtezrequest(NL||center("Wieviele temporΣre Hydra-Bretter",40)||NL||center("haben sie bereits installiert?",40)||NL||NL"(2 Bretter sind fⁿr Multiport-Systeme gⁿnstig,"NL"falls das eine Brett gerade auf einem"NL"anderen Port benutzt wird!)"||NL,"1|2|Noch keines!","temporΣre Hydra-Bretter",Tags)
  314. if hbrett=0 then signal glgl
  315. if hbrett=1 then signal einbrett
  316.  
  317. zweibrett:
  318. b1=rtgetstring("",NL"Geben Sie den Namen des ersten Hydra-Brettes an"NL||NL"Beachten Sie dabei, keine "" oder / zu verwenden"NL"sondern nur den reinen Brettnamen, wie er auch"NL"im Brett-Editor eingegeben wird!!"NL,"Brettname des ersten temporΣren Hydra-Brettes","OK|Abbruch")
  319. if b1="" then exit
  320.  
  321. b2=rtgetstring("",NL"Geben Sie den Namen des zweiten Hydra-Brettes an"NL||NL"Beachten Sie dabei, keine "" oder / zu verwenden"NL"sondern nur den reinen Brettnamen, wie er auch"NL"im Brett-Editor eingegeben wird!!"NL,"Brettname des zweiten temporΣren Hydra-Brettes","OK|Abbruch")
  322. if b2="" then exit
  323. return
  324.  
  325. einbrett:
  326. b1=rtgetstring("",NL"Geben Sie den Namen des Hydra-Brettes an"NL||NL"Beachten Sie dabei, keine "" oder / zu verwenden"NL"sondern nur den reinen Brettnamen, wie er auch"NL"im Brett-Editor eingegeben wird!!"NL,"Brettname des temporΣren Hydra-Brettes","OK|HILFE|Abbruch")
  327. if b1="" then exit
  328. return
  329.  
  330. glgl:
  331. dummy=rtezrequest(NL||center("Wie sind Sie denn bis hierher gekommen?",60)||NL||NL||center("Sie mⁿssen doch erst die beiden Hydra-Bretter",60)||NL||center("installieren! Oder zumindest eines.. :)",60)||NL,"Okay, mach ich schnell|Jaja, ich mach ja schon")
  332. exit
  333.  
  334. cfg_extraULDL:
  335.  
  336. euldl=rtezrequest(NL||center("M÷chten Sie ein extra Hydra-Up/Downloadprotokoll",50)||NL||center("anlegen lassen? (mb:HydraLog/ULoads + DLoads)",50)||NL,"Ja|Nein","",Tags)
  337. if euldl=1 then ExtraULDL=1
  338.        else ExtraULDL=0
  339. return
  340.  
  341. AddSpecialCommand:
  342. address command 'search mb:boxdaten/specialcommands'i' Hydra-FC.rexx >ram:dupechk'
  343.     open(q,"ram:dupechk","R")
  344.         len=seek(q,0,"E")
  345.     close(q)
  346.     if len>0 then return
  347.     if len=0 then do
  348.         p=p+1
  349.         address command  "delete >NIL: ram:dupechk"
  350.     end
  351.  
  352. open(spcd,"mb:boxdaten/specialcommands"i,"A")
  353.     writeln(spcd,'.Hydra')
  354.     writeln(spcd,'run rx REXX:Hydra-FC.rexx $PO "$BP" $SE $BA $UN')
  355.     writeln(spcd,level)
  356.     writeln(spcd,3)
  357. close(spcd)
  358. return
  359.  
  360. cfg_pip:
  361.     if KFFlag=1 then do
  362.         dummy=rtezrequest(NL||center("Achtung!!",70)||NL||center("*************",70)||NL||NL||center("Da Sie den Dupe-Check ⁿber das FastCall-UpDownload-Protokoll",70)||NL||center("bewerkstelligen lassen, darf diese Funktion nicht aktiviert werden,",70)||NL||center("weil ansonsten jedes geuploadete File als bereits vormalig",70)||NL||center("geuppt erkannt wird! Aus diesem Grund ist es bei",70)||NL||center("Wahl des KF-Checker-Dupechecks per FC-Protokoll nicht m÷glich,",70)||NL||center("diese Funktion zu aktivieren!!",70)||NL,"Ach so ist das..|Alles klaro.","",Tags)
  363.         return
  364.     end
  365.     pipr=rtezrequest(NL||center("M÷chten Sie, da▀ Hydra-FC die upgeloadeten Files",60)||NL||center("in das FastCall-UpDownload-Protokoll einschreibt?",60)||NL,"Ja|Nein","",Tags)
  366.     if pipr=1 then pip=1
  367.           else pip=0
  368. return
  369.  
  370. cfg_vertretermails:
  371.     vtr=rtezrequest(NL||center("M÷chten Sie, da▀ auch Vertreter des Sysops",55)||NL||center("Hydra-Systemmeldungen erhalten ?",55)||NL||NL||center("(wie z.B. Meldungen zu Dupe-Uploads usw...)",55)||NL,"Ja|Nein","",Tags)
  372.     if vtr=1 then sopvtr=1
  373.          else sopvtr=0
  374. return
  375.